/*cd "E:\My Drive\Wage_Rigidity\Surveys"
global graphs "./graphs"
global log "./log"

set scheme plotplain
graph set window fontface "Times New Roman"

capture log close
log using "$log/worldatwork", replace
*/
*Planned response
import excel "E:\My Drive\Wage_Rigidity\Surveys\worldatwork.xlsx", sheet("Sheet1") firstrow clear
sencode size, gen(ans) 
	graph bar share, over(response) over(ans, lab(angle(0))) asyvar ytitle("Share of Firms")  b1title("Firm Size") ylabel(0(20)100)
	graph export "$graphs/worldatwork1.eps", replace
	graph export "$graphs/worldatwork1.jpg", replace	

*Cost 
import excel "E:\My Drive\Wage_Rigidity\Surveys\worldatwork.xlsx", sheet("Sheet2") firstrow clear
sencode response, gen(ans) 
	graph bar share, over(ans, lab(angle(0))) asyvar ytitle("Share of Firms")  b1title("How will the Changes Affect Your Overall Costs?") ylabel(0(20)100)
	graph export "$graphs/worldatwork2.eps", replace
	graph export "$graphs/worldatwork2.jpg", replace	

*Budget 
import excel "E:\My Drive\Wage_Rigidity\Surveys\worldatwork.xlsx", sheet("Sheet2") firstrow clear
sencode response, gen(ans) 
	graph bar share, over(ans, lab(angle(0))) asyvar ytitle("Share of Firms")  b1title("Reduce Next Fiscal Year's Budget?") ylabel(0(20)100)
	graph export "$graphs/worldatwork3.eps", replace
	graph export "$graphs/worldatwork3.jpg", replace	

*log close
